home *** CD-ROM | disk | FTP | other *** search
/ Aminet 44 / Aminet 44 (2001)(GTI - Schatztruhe)[!][Aug 2001].iso / Aminet / game / misc / CCGames.lha / LETTER.BAS < prev    next >
BASIC Source File  |  1980-01-01  |  1KB  |  29 lines
  1. 1 RANDOMIZE
  2. 5 PRINT CHR$(26):WIDTH 80
  3. 10 PRINT TAB(33);"LETTER":PRINT
  4. 20 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
  5. 30 PRINT:PRINT:PRINT
  6. 100 PRINT "LETTER GUESSING GAME": PRINT
  7. 210 PRINT "I'LL THINK OF A LETTER OF THE ALPHABET, A TO Z."
  8. 220 PRINT "TRY TO GUESS MY LETTER AND I'LL GIVE YOU CLUES"
  9. 230 PRINT "AS TO HOW CLOSE YOU'RE GETTING TO MY LETTER."
  10. 310 L=65+INT(RND(1)*26)
  11. 320 G=0
  12. 340 PRINT: PRINT "O.K., I HAVE A LETTER.  START GUESSING."
  13. 410 PRINT: PRINT "WHAT IS YOUR GUESS";
  14. 420 G=G+1
  15. 430 INPUT A$: A=ASC(A$): PRINT
  16. 440 IF A=L THEN 500
  17. 450 IF A>L THEN 480
  18. 460 PRINT "TOO LOW.  TRY A HIGHER LETTER.": GOTO 410
  19. 480 PRINT "TOO HIGH.  TRY A LOWER LETTER.": GOTO 410
  20. 500 PRINT: PRINT "YOU GOT IT IN";G;"GUESSES!!"
  21. 504 IF G<=5 THEN 508
  22. 506 PRINT "BUT IT SHOULDN'T TAKE MORE THAN 5 GUESSES!": GOTO 515
  23. 508 PRINT "GOOD JOB !!!!!"
  24. 510 FOR N=1 TO 15: PRINT CHR$(7);: NEXT N
  25. 515 PRINT
  26. 520 INPUT "DO YOU WANT TO TRY AGAIN";ANS$
  27. 525 IF LEFT$(ANS$,1)="Y" THEN 310 ELSE RUN "MENU"
  28. 999 RUN "MENU"
  29.